home *** CD-ROM | disk | FTP | other *** search
/ The Big Mouth 18 / Big_Mouth_The_18_1998_-_Side_D.d64 / 01- salainen (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  108 lines
  1. 1 poke53265,peek(53265)or16
  2. 2 fori=0to9:poke631+i,0:next:poke198,0
  3. 3 vl=54296:ma=54272:ko=54273:am=54276:ad=54277:sr=54278:print"[147]"
  4. 4 fori=0to24:pokema+i,0:next:pokevl,15:pokead,192:pokesr,190:pokeam,129
  5. 5 poke53281,0:poke53280,0:pokeko,100:fori=1to1000:next
  6. 6 poke53281,1:poke53280,1:poke53281,0:poke53280,0:pokead+7,13:pokesr+7,0
  7. 7 pokeam+7,129:pokeko+7,2:pokema+7,120:fori=1to1000:next
  8. 8 pokead+14,224:pokesr+14,240:pokeam+14,81
  9. 9 pokeko+14,8
  10. 11 print"[147]..":poke53281,1:poke53281,0
  11. 12 fori=1to3000:next:pokead+7,0:pokesr+7,0:pokeam+7,0:pokead+7,13:pokesr+7,0
  12. 13 pokeam+7,129:pokeko+7,1:fori=1to3500:next
  13. 14 print"[209]  [209]"
  14. 15 fori=7to0step-1:forj=255to0step-10:pokeko+14,i:pokema+14,j:nextj,i
  15. 16 print"[169] [223][169] [223]"
  16. 17 print"   [146]         "
  17. 18 print"[223] [146][169][223] [146][169]"
  18. 19 pokead+14,0:pokesr+14,0:pokeam+14,0:pokema+14,0:pokeko+14,0:poke53280,1
  19. 20 pokead+7,0:pokesr+7,0:pokeam+7,0:pokead+7,13:pokesr+7,0:pokeam+7,129
  20. 21 pokeko+7,4:poke53280,0:fori=1to800:next:print"[147]":fori=1to1500:next
  21. 25 pokead+14,0:pokesr+14,240:pokeam+14,129
  22. 26 pokeko+14,40:pokeko+14,8:fori=1to50:next:pokeko+14,0:fori=1to1000:next
  23. 27 pokeko+14,40:pokeko+14,8:fori=1to50:next:pokeko+14,0:fori=1to1800:next
  24. 28 pokead+14,15:pokesr+14,0:pokeam+14,129
  25. 30 fori=1to20
  26. 31 fork=1to5:pokeko+14,(50*rnd(1)+20):nextk:pokeko+14,0
  27. 32 forl=1to160:nextl,i
  28. 33 fori=1to1000:next
  29. 35 pokead,12:pokesr,0:fori=1to2500:next:poke53281,0
  30. 36 fori=0to23:pokema+i,0:next
  31. 40 print"[147][142][149]"
  32. 41 printspc(5)"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  33. 42 printspc(5)"                             "
  34. 43 printspc(5)"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  35. 44 printspc(5)"         [176][195][195][195][195][195][195][174]            "
  36. 45 printspc(5)"[195][195][195][195][195][195][195][195][195][179][176][195][195][195][195][174][171][195][195][195][195][195][195][195][195][195][195][195][195]"
  37. 46 printspc(5)"[176][195][195][195][195][195][174]  [194][194][176][195][195][174][194][194] [213][178][201] [151][176][195][195][195][174][149]"
  38. 47 printspc(5)"[179]'  ''[149][171][195][195][179][194][194]'[149] [194][194][171][195][179][173][171][149][195][151][179]7. [171][149][195][195]"
  39. 48 printspc(5)"[194] '' '[149][194]  [194][194][194] '[149][194][194][194] [202][195][203] [151][194]oct[194][149]"
  40. 49 printspc(5)"[179]' '' [149][171][195][195][179][194][173][195][195][189][194][171][195][195][195][195][195][151][179][166][166][166][171][149][195][195]"
  41. 50 printspc(5)"[173][195][195][195][195][195][189]  [194][194][219]   [194][194]     [151][173][195][195][195][189][149]  "
  42. 51 printspc(5)"[195][195][195][195][195][195][195][192][195][179][194][219]   [194][171][195][195][195][195][195][195][195][195][195][195][195][195]"
  43. 52 printspc(5)"         [194][194]    [194][194]            "
  44. 53 printspc(5)"[195][195][195][195][195][195][195][195][195][179][194]    [194][171][195][195][195][195][195][195][195][195][195][195][195][195]"
  45. 54 printspc(5)"         [194][194]    [194][194]            "
  46. 55 printspc(5)"[195][195][195][195][195][195][195][195][195][177][177][195][195][195][195][177][177][195][195][195][195][195][195][195][195][195][195][195][195]"
  47. 56 printspc(5)"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  48. 57 printspc(5)"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  49. 58 printspc(5)"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  50. 59 printspc(5)"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  51. 60 printspc(5)"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]    "
  52. 61 printspc(5)"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195] [146][223]  "
  53. 62 printspc(5)"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195] [146][195][223] "
  54. 63 printspc(5)"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195] [146][195][195][223]"
  55. 64 printspc(5)"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195] [146][195][195][195]";
  56. 70 pokead,0:pokesr,64:pokeam,129:pokeko,80
  57. 80 fori=1to1000:next:poke53281,14:poke53280,14:fori=1to80:next
  58. 81 poke53281,0:poke53280,0
  59. 82 pokead+7,13:pokesr+7,0:pokeam+7,129:fori=1to500:pokeko+7,2:pokeko+7,1:next
  60. 83 fori=1to700:next:poke53281,14:poke53280,14:fori=1to50:next:gosub 200:rem!!!!
  61. 84 pokead+7,0:pokesr+7,0:pokeam+7,0:pokema+7,150:poke53281,0:poke53280,0
  62. 85 pokead+7,13:pokesr+7,0:pokeam+7,129:fori=1to400:pokeko+7,2:pokeko+7,1:next
  63. 86 forj=1to2
  64. 87 poke53281,14:poke53280,14:fori=1to100:next:poke53281,0:poke53280,0
  65. 88 fork=1to500:nextk,j:pokeam+7,128
  66. 89 pokead+7,14:pokeko+7,1:pokema+7,100:pokeam+7,129:fori=1to7500:next
  67. 90 print"[151]'[165][167] [157][157][157][157][206]  [208][157][157][157][157][165]  [167][157][157][157][157][165]  [167][157][157][157][157][165]  [167][157][157][157]";
  68. 91 print"[157][205]  [206][157][157][157][157] [165][167]'[157][157][157][157]'[165][167] [157][157][157][157] [165][167]'[157][157][157][157][157][157][169] [146][169]/[169] [146][169][157][157][157][157][157][157][157][157][169] [146][169]/[169] ";
  69. 92 print"[146][169][157][157][157][157][157][157][157][157][169] [146][169]/[169] [146][169][157][157][157][157][157][157][157][157][169][146][169]    [146][169][157][157][157][157][157][157][157][157][169][146][169]   [169][146][169]";
  70. 93 print"[157][157][157][157][157][157][157][157][169][146][169]   [169][146][169][157][157][157][157][157][157][157][157][169] [146]   [169][146][169][157][157][157][157][157][157][157][157][169] [146][169] [169] [146][169]";
  71. 95 pokead+7,0:pokesr+7,0:pokeam+7,0:pokema+7,0:pokeko+7,0:pokead+7,0
  72. 96 pokesr+7,254:pokeam+7,129:pokeko+7,70:fori=1to100:next:pokeko,45
  73. 97 fori=1to150:next:pokeko,0
  74. 199 goto500
  75. 200 print"[142][144]"
  76. 201 printspc(5)"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  77. 202 printspc(5)"                             "
  78. 203 printspc(5)"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  79. 204 printspc(5)"         [176][195][195][195][195][195][195][174]            "
  80. 205 printspc(5)"[195][195][195][195][195][195][195][195][195][179][176][195][195][195][195][174][171][195][195][195][195][195][195][195][195][195][195][195][195]"
  81. 206 printspc(5)"[176][195][195][195][195][195][174]  [194][194][176][195][195][174][194][194] [213][178][201] [176][195][195][195][174]"
  82. 207 printspc(5)"[179][151]'  ''[144][171][195][195][179][194][194][151]' [144][194][194][171][195][179][173][171][195][179]7. [171][195][195]"
  83. 208 printspc(5)"[194][151] '' '[144][194]  [194][194][194][151] '[144][194][194][194] [202][195][203] [194]oct[194]"
  84. 209 printspc(5)"[179][151]' '' [144][171][195][195][179][194][173][195][195][189][194][171][195][195][195][195][195][179][166][166][166][171][195][195]"
  85. 210 printspc(5)"[173][195][195][195][195][195][189]  [194][194][219]   [194][194]     [173][195][195][195][189]  "
  86. 211 printspc(5)"[192][192][192][192][192][192][195][192][195][179][194][219]   [194][171][195][195][195][195][195][195][195][195][195][195][195][195]"
  87. 212 printspc(5)"         [194][194]    [194][194]            "
  88. 213 printspc(5)"[195][195][195][192][195][195][195][195][195][179][194]    [194][171][195][195][195][195][195][195][195][195][195][195][195][195]"
  89. 214 printspc(5)"         [194][194]    [194][194]            "
  90. 215 printspc(5)"[195][195][195][195][195][195][195][195][195][177][177][195][195][195][195][177][177][195][195][195][195][195][195][195][195][195][195][195][195]"
  91. 216 printspc(5)"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  92. 217 printspc(5)"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  93. 218 printspc(5)"[195][195][195][195][195][195][195][151][195][195][195][195][195][195][144][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  94. 219 printspc(5)"[195][195][195][192][192][192][151][195][169]  [146][169][195][144][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  95. 220 printspc(5)"[195][195][195][195][195][151][192][169]  [146][169][195][144][195][195][195][195][195][195][195][195][195][195][195][195][195][195]    "
  96. 221 printspc(5)"[192][195][195][192][151][192][169]  [146][169][195][144][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195] [146][223]  "
  97. 222 printspc(5)"[192][192][195][151][195][195][195][195][195][195][144][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195] [146][195][223] "
  98. 223 printspc(5)"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195] [146][195][195][223]"
  99. 224 printspc(5)"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195] [146][195][195][195]";
  100. 230 return
  101. 500 fori=1to5000:next:pokeam+7,128
  102. 505 print"[147]";
  103. 510 print"        what's happening... ?!?"
  104. 520 print"[144]load"chr$(34)"02*"chr$(34)",8:"
  105. 525 print"run:";
  106. 530 poke198,2:poke631,13:poke632,13
  107. 535 end
  108.